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MODULE PASSURITE REALE. rf BIATLE ‘Write an F_floating in E forma 
= 


BEGIN 


POSSESS LSLIS IIE T ITT T TT TT TTT TTT errr cere c ire i iri i iii iii i iii iit iii iiity 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
od 
* 
® 
: ® 
it THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
iw ONLY IN ACCORDANCE WITH THE TERMS OF TAUGH OLECENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS, SOFTWARE OR OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO.ANY 
if OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS HEREBY 
ie TRANSFERRED. * 
® 
y 
® 
® 
® 
® 
® 
® 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONS B 


!® SOFTWARE ON EQUIPMENT WHI 


ITY FOR THE USE OR 7 tetas OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL 


Lee RARER RARER EER AERA AREA EEE REAR AEE ERE 
' 


+ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains a procedure which writes an F_floating in 
exponential format to a textfile. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 - Original. SBL 1-April-1981 
_1-002 - Make total-width a longword. SBL 30-June-1982 


+ 
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706 PASRTL.SRC PASURI 


! File: PASWRIREF . ‘932 Edit: $BL1002 


— 
*. 
N 
nem 


iss-32 V4.0-74 
PASWRIREF .B 


sre 


H 4 
1e-Sep-198e 19:89:06 EpASRT 


Declarations 
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DOK UMTMOP- DOOM 
TFTMAMMMMAMNAMNNNOOVDOO 


! Externals, Linkages, PSECTs, structures 


REQUIRE "RTLIN:PASPROLOG'; 


TABLE OF CONTENTS: 


! Write to textfile 
! Write to string 


F: NOVALUE 
NOVALUE; 


E_F: 


FORWARD ROUTINE 
PASSWRITE REALE 
PASSWRITEV_REAL 


NONE 
EQUATED SYMBOLS: 


NONE 


NONE 
OWN STORAGE: 


NONE 


= 


4 
PASSURITE REALE Write an F_floating in E format 1b-Sep-1984 06:93:17 AX-11 gt Ph eed Page 3 P 
1-002 PASSWRITE_REALE_F = Write F_floating in E forma 14-Sep-1984 12:52:06 PASRTL.SRCJPASWRIREF .852;1 sag 1 
; ¢ 143 1 ZSBTTL 'PASSWRITE REALE F = Write F_floating in E format to textfile’ : 
: 144 1 GLOBAL ROUTINE PASSWRITE REALE_F ( . 
: 4 145 1 PFV: REF SPASSPFU_FILE-VARIABLE, ! File variable ; 
: 85 146 1 VALUE, i Value to write ; 
: Hy 147 1 TO(AL_WIDTH: SIGNED, ! Total field width : 
: 148 #1 ERROR ! Error unwind address ; 
>; 88 149 1 ): NOVALUE = > 
; 150 1 ; 
; 90 151 1 !44 ; 
; 4! 8126 : } FUNCTIONAL DESCRIPTION: : 
; F 8128 1! This procedure writes an F_floating value in exponential notation 3 
s 9% 155 1! to the specified textfile. . 
Be. 0156 1! 3 
: 38 Biee : CALLING SEQUENCE: : 
; #498 0159 1! CALL PASSWRITE_REALE_F (PFV.mr.r, VALUE.rf.v, TOTAL_WIDTH.rl.v > 
: 99 0160 1! CERROR.j.rJJ) : 
: 100 0161 1! F 
: 101 B1o¢ 1 ! FORMAL PARAMETERS: F 
; 196 0165 1! F 
; 0164 1! PFV - The Pascal File Variable (PFV) passed by reference. : 
: ie bie2 : } The structure of the PFV is defined in PASPFV.REQ. 
: 106 0167 1! VALUE - The F_floating value to write. 
3; 107 0168 1! . 
; 108 0169 1! TOTAL_WIDTH - Total field width. 
; 109 0170 1! 
$ 119 B44 } } ERROR - Optional. Address to unwind to if an error occurs. 
: a o178 1 ! IMPLICIT INPUTS: 
; + 0174 1! 
3; (114 0175 1! NONE 
3: 6115 0176 1! 
; 116 0177 1 ! IMPLICIT OUTPUTS: 
: 117 0178 1! 
s 118 0179 1! NONE 
: 6119 0180 1! 
5 1s9 ois 1 ! ROUTINE VALUE: 
s tel 01 g & 
; \$¢ 0183 1! NONE 
gs Ye 0184 1! 
: 126 0185 1 ! SIDE EFFECTS: 
3 \$3 Bi36 2s a ama 
3 1$8 $14 ' : If the file is the standard file OUTPUT, it is implicitly opened. 
; 128 0189 1 ! SIGNALLED ERRORS: 
s 44 0190 1! 
; 130 0191 1! LINTOOLON - Line too Long ae ete 
3 13) Bias : : NEGWIDDIG - negative Width or Digits specification is not allowed 
: 138 194 1 ine 
: 134 195 1 
: 135 198 BEGIN | 
: 136 19 | 
. 3 198 LOCAL : | 
; «4138 0199 FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 


te SWRITE_REALE Write an F floating 


DONA ULSWN "OC VOONOUS WO” 


wr 


oOo 00 00 G9 00 G0. G0 0000 09 08 I NNN o ANAANMNAAANANAE PPP PPP PEE 
SRe SCS SR SRR ES Sao RUN OS wae Ss wen 
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4 
ing in E format 1b-Se -1984 02:22:17 AX-11 Bliss-32 V4.0-74 
PASSWRITE_REALE_F = Write F_floating in E forma 12-80-1382 93:83:04 PASRTL.SRCJPASWRIREF 882;1 
FIELD WIDTH: SIGNED, ! Minimum width 
REMAINING_WIDTH ! width reneining on Line 
PFV_ADDR: “VOLATILE, i Enable argumen 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
BUILTIN 
ACTUALCOUNT; 


ENAB 


LE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
14 


Get ERROR parameter, if present. 
IF ACTUALCOUNT () GEQU 4 


ERROR_ADDR = .ERROR; 
PFV_ADDR = PFV CPFVSR_PFV); 


'¢ 
Validate PFV and get PFV. 


!' Set unwind address 
' Set PFV address 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
14 

Set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 


14 
Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 
'¢ 


Get field width and remaining width. Check for valid field width. 


FIELD WIDTH = .TOTAL_ WIDTH; 
iM gf TELD_WIDTH LSS 0 
SPASSIO_ERROR (PAS$_NEGWIDDIG 


0); 
R 


1 
REMAINING_WIDTH = .FCB CFCBSA_RECORD.END] - .FCB CFCBSA_RECORD_CUR); 


1+ 
! Convert to text and put in record buffer. If failure, signet an error. 
: FIELD_WIDTH will be modified to have the actual width used. 


RUA AIS BB BS BB BIW II PONOPINUNINUNIND OOOO OO 
PUP WN OOO NOU EWN ODO SOME ODO NOUE UN SO OONAME WN BOSS NAR OOS 


SOOOOOSOCOOSOOCOOOCOSOSOOCOSOSOSOOCOSOSSOOOSOOOCOOOOOOOOOOOOOOO 


PIPQPIMINIPIPONYINIPYNINININININYINIPINININPIPIPINIPINIPIPONINIPYPINPONUNYNY 


RIPIPIMINIPOPIPIPININPIPONINYININPINPINPININININININININPININY 


IF NOT PASSCVT_F_T (VALUE ' Value to convert 
-FCB CFCBSA_RECORD_CURJ,! Destination 


| 
Page 4! 
| 


SS — — - 4 


OB:23:N2 YMMGI Leese weate7eg, | Fase oS 


4 

4 

Minimum/actual width 
Width remaining on Line 


=v 


4 
eA Synite REALE Urite an F floating in E for 1625 Sep- 9-138 
PASSWRITE_REALE_F = Write F rttoating in E forma 14-Sep-19 
FIELD _ WIDTH, ! 
THEN «REMAINING WIDTH) 


a4 Y 


; 7 

: 18 f 

3 +4 4 SPASSIO_ERROR (PASS$_LINTOOLON,1,(.FIELD_WIDTH-.REMAINING WIDTH)); 

5 201 6 \¢ 

; oe 0 es Advance the record pointer. 

: 204 65 

: B2 0 08 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + FIELD WIDTH; 

: 207 0 68 rs 

; 208 69 i Call WRITE epilogue routine to move the Last character written to the 
: 4 8 4! t user's buffer and to unlock the file variable. 

: 211 027 

: \¢ 0378 PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 

: 214 0275 RETURN; 

; 25 0276 

; 216 0277 1 END; ; ! End of routine PASS$SWRITE_REALE_F 


-TITLE PASSWRITE_REALE_F vee an F_floating in E form 
: a 
-IDENT \1-002\ 
-EXTRN PASSWRITE REALE F 
-EXTRN PASSWRITE? REALE. F 
| 


~EXTRN PASSSIN IT_WRITE 

eEXTRN SSS GNA. PAS$K_NEGWIDDIG 
~EXTRN passeyy T, PASS$K_LINTOOLON 
~EXTRN PASSSEND. _QriTE 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


01FC 00000 «ENTRY PASSWRITE_REALE_F, Save R2,R3,R4,R5,R6,R7,.- ; 0144 
58 000000006 00 9€ 00002 MOVAB PASS$SSIGNAL, R8 ; 
5E 10 : 00009 SUBL2 #16, SP : 
AE C 0000C CLRQ ERROR_ADDR ; 0196 
O¢ AE D4 90008 CLRL PFV_ADD ; 
6 006 CF ODE big MOVAL 4$, (FP 3 
0 6C 91 0001 CMPB (AP), : 0216 
0S 1F OOO1A BLSSU-1$ ; 
04 AE 10 AC DO OO00IC MOVL ERROR, ERROR_ADDOR ; 0218 
56 04 AC 00 00021 1$: MOVL FV, R : 0220 
0c AE 56 DO 00025 MOVL R6, PFV_ADDR 2 
000000006 60 16 0029 JSB PASSSVACIDATE_PFV : 0226 
08 iA 1 D0 0002F MOVL 1 T ; 0232 
000000006 00 16 00033 JSB PASSSINIT QRITE : 0238 
6E OC AC D 00 9 MOVL OTAL_WIDTH, FIELD_WIDTH > 0244 
OA 18 0003p BGEO 8 > 0245 
E pA 003F CLRL =(SP > 0247 
7E 006 8F 9A 00041 MOVZBL HPASSK_NEGWIDDIG, -(SP) F 


278 
279 


1 
1 !<BLF/PAGE> 


—%s 
4 

PASSWRITE_REALE Write an F_floating in E format 18-Se 1984 02:22:17 AX-11 Bliss-32 V4.0-74 Page 6 P 
1-002 PASSWRITE_REALE_F S urite P-floating in E forma 14-Sep-1984 93:85: 6 PASRTL.SRCIPASWRIREF .832; 1 9 (3) 1 
68 02 fe oF gabts #2, PASSS$SIGNAL ; : 
52 FO A? EC A? C3 845 2$: SUBL3 -20(FCB), -16(FCB), REMAINING_WIDTH : 0248 ; 
52 DD O004F PUSHL REMAINING WIDTH ; 0258 : 
04 ag 9F 00051 PUSHAB FIELD_WIDTH 3 0255 : 
a ee He) |: 
000000006 00 4 F 5A CALLS #4, PASSCVT_F_T : : 
OE § 0061 BLBS RO, 3 : 
7E 6E C3 00064 SUBL3. REMAINING_WIDTH, FIELD_WIDTH, -(SP) 3; 0260 ; 
1 OD SRe8 PUSHL @# 3 ; 
43 00G 8F 9A A MOVZBL #PASSK INT COLON. -(SP) é : 
6 3 fe 8 ‘ aad #3, PASSSSIGNAL 3 ‘ 
EC A? +3 CO 00072 3$: ADDL2 FIELD_WIDTH, -20(FCB) : 0266 : 
00000000G 00 16 00076 JSB PASSSEND_WRITE : 0273 3 
04 0007C RET ; 0277 $ 
0000 0007D 4$: «WORD Save nothing 3; 0196 $ 
50 08 AC 00 0007F MOVL B(AP), RO : : 
50 04 Ad 00 00083 MOVL 4(RO), RO : ‘ 
F4 AO 9F 00087 PUSHAB ERROR_ADDR : : 
F8 AO 9F OOOBA PUSHAB UNWIND_ACT $ : 
FC AQ 9F 0008D PUSHAB PFV_ADBR : : 
03 DD 00090 PUSHL #3 : ‘ 
5E DD 00092 PUSHL SP : 3 
7E 04 AC 7D 00094 MOVQ 4(AP), -(SP) 3 : 
000000006 00 03 FB 00098 CALLS #3, PAS$$IO_HANDLER : : 
04 0009F RET 3 : 


; Routine Size: 160 bytes, Routine Base: _PASS$CODE + 0000 


— PASSORI TEV “REALE Fo y BR, < oating in E form 16 sen-1984 93: $3: 06 PASRTL SRESP ASuhiRe F B92: 37 eas «as 


ormat 
F_fl 
1 ZSBTTL ‘PASSWRITEV REALE 
WRI 
WOR 
8 
8 


-_ 


EF - write F_floating in E format to string’ 
GLOBAL ROUTINE PASSURITED “REALE.F (7 ° . 
MAX D, Maximum Length of string 
String to write to 
Value to write 
Total field width 
Error unwind address 


NGTH 
STRING SLINE: REF VECTOR C, WORD], 


VALUE ,~ 
TOTAL WIDTH: SIGNED, 
ERROR™ 

) : NOVALUE = 


lee 
| ee DESCRIPTION: 


4 
88 
4 
4 
9¢ This procedure writes an F_floating in E format 
eae to the specified string. “ 
H 32 CALLING SEQUENCE: 
3 97 ma, PASSWRITEV_REALE_F (MAX 4 at ox’ STRING_LINE.wvt.r, 
; a VALUE.rf.v, TOTAL_QIDTH.rl.v C, ERROR.j.rJ) 
$09 i FORMAL PARAMETERS: 
$06 MAX_LENGTH - The maximum Length of STRING_LINE. 
She STRING_LINE - A varying string to which the output will be appended. 
$09 VALUE - The value to write. 
308 TOTAL_WIDTH - The width of the field to write. 
ERROR - Optional. If specified, the address to unwind to 


in case of an error. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
{ ROUTINE VALUE : 

NONE 
{ SIDE EFFECTS: 

NONE 
SIGNALLED ERRORS: 

See PASSWRITE_REALE_F 
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Ste. 
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BEGIN 
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PASSWRITE_REALE Write an F_floating in E format 16-Sep-1984 02:22:17 AX-11 Bliss-32 V4.0-74 P 
1-002 PASSURITEV-REALE.F >= Urite F_floating in E form 12=868=1 382 SEY PASRTL. RESPASWRIREF B92; 1 Pies «as 
: of 0 i OCAErV: SPASSPFV-FILE VARIABLE,  ! Pascal File Variabl 
; 8 5 ARG_LIST: VECTOR Fr! LONGI. i Arquaent (ist. 88 
; 280 i PFV_ADDR: VOLA ’ ! Enable argument 
; 28) 4 UNWIND ACT: VOLATILE, ! Enable argument 
: 8 tg ERROR_ADDR: VOLATILE; ! Enable argument 
: 284 0344 BUILTIN 
: #4 8 rf ACTUALCOUNT; ! Count of arguments 
: 287 0 23 ENABLE 
: a8 8 rt PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; 3 9 29 i* t ERROR ter, if t 
° H e arameter, resent. 
: 392 0552 i , “ 
; 3 b3ez IF ACTUALCOUNT () GEQU 5 
> 295 0355 THEN : 
: + B329 ERROR_ADDR = .ERROR; ! Set unwind address 
3 0398 PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address 
; g 0360 ‘+ 
3 0361 ! Set up ARG_LIST. 
; tet !- 
; O3c2 ARG_LIST [0] = 3 ‘Th t 
° = 33 H ea 
; § 0365 2  ARGTLIST (1) = PEV CPFVSR_PFV]; | PRY address. 
; 306 0366 § ARG_LIST ¢] = .VALUE; ! Value to write 
; 07 0367 ‘ ARG_LIST £3) = .TOTAL_WIDTH; i Field width 
: 309 0369 1+ 
s 310 0370 ' Call PASS$DO_WRITEV to do the work, giving it the address of 
: ei 0371 ! PASSWRITE_REALE_F to call. 
: 313 0375 sé 
; 314 037% 3 PASSSDO,URITEV. (PFY CPFVSR_PFVI, -MAX_LENGTH, STRING_LINE (OJ, ARG_LIST, : 
: 316 0376 . . : 
; 317 0377 RETURN; ; 
3 $9 0378 3 
; 319 0379 1 END; ! End of routine PASSWRITEV_REALE_F ‘ 
.EXTRN PASS$$DO_WRITEV 
= 3007s 99009 gENTRY PASSWRITEV_REALE_F, Save R2,R3,R4,R5,R6 ; 0281 
0 — 
6D 0089 cr DE 000A MOVAL 930 CFP) : 
. si ae gS, bas) 
6E 14 AC dO 0014 MOVL ERROR, ERROR_ADDR > 0356 
08 AE 1C AE 9E 00018 1$ MOVAB PFV, PFV_ADDR : 0358 


| 
PASSWRITE_REALE Write an F_floating in E format 1b-5e =-1984 2:22:17 AX-11 Bliss-32 V4.0-74 Page 9 
1-002 PASSWRITEV-REALE Y Orie F_floating in E form 1 ~300n 138i 95:85:45 PASRTL” SRC PASURIREF .B 2:1 
o¢ AE 03 D0 9010 OVL #3, ARG_LIST : 0364 
10 AE 1¢ AE 9E 00021 MOVAB PFV, ARG_LIST+4 + 0365 
14 AE g¢ AC 70 00026 ova Vv LUE ARG_LIST+8 : 0366 
5 FF31 CF 9E 000 B MOVAB PASSWRITE_REALE_F, R5 + 0374 
54 0C AE 9E 000 MOVAB ARG_LIST,~R4 : 
36 i1¢ AE 3 0034 MOVAB PFV> R6 ; 
5 08 Ac p 00 8 OVL STRING LINE, af : 
52 04 AC 3C 00 ¢ MOVZWL x eLERGTH : 
000000006 00 16 0004 JSB PASS DO wRITEY : 
04 0046 RET + 0379 
0000 00047 2$ «WORD seve othing ; 0335 
50 08 AC DO 90049 MOVL (AP), RO : 
50 4 AO DO 0004D MOVL 4(RO). R : 
D4 AO 9F 00051 PUSHAB ERROR ADDR : 
D8 AO OF 00094 PUSHAB UNWIND ACT : 
DC AO 9F 00057 PUSHAB PFV ; 
03 DD 00034 PUSHL #3 : 
5E 0D 0005¢ PUSHL SP ; 
7E 0 aC 7D 00055 MOV. 4(AP), =(SP) F 
000000006 00 03 FB 0006 CALLS #3, PAS$$IO_HANDLER F 
04 00069 RET ; 


: 320 80 1 
321 81 1 !<BLF/PAGE> 


; Routine Size: 106 bytes, Routine Base: _PASSCODE + 00A0 

03 

03 | 
| 
| 
| 
| 
| 


te SWRITE_REALE Brite an F_floatin 16-5¢ p-1 2:22:17 AX-11 Bliss-32 V4.0-74 P 
-002 PASSWRITEV_REALE_F _ “Orlee ke F "Ticating in — form 1 =308-} 1984 93:83: 4¢ PASRTL.SRCJPASWRIREF $251 ict 
334 0388 ! END ! End of module PAS$WRITE_REALE_F 

5 0 Hi 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 266 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ear nial Symbol@ qsoscoee Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 
COMMAND QUALIFIERS 
PLISE/CHECR OSE SELB, INITIAL OPT IRIE) /HOTRACEAL SSe4, [SS xPASURIREF /08)908.58 :PASURIREF MSRC$:PASWRIREF /UPDATE=(ENH$:PASWRIREF 
326 0385 0 
Size 266 code + 0 data bytes 
Run Time: 00:07.0 
Elapsed Time: 00:18.1 
Lines/CPU Min: 3285 
Lexemes/CPU-Min: 12751 
Memory Used: 80 pages 


Compiiation. Complete 


. 
. 
. 
e 
. 
2 
. 
° 
. 
. 
e 
. 
. 
. 
e 
. 
eo 
. 
o 
. 
o 
. 
o 
7 
e 
o 
o 
. 
oe 
2 
° 
. 
a 
. 
. 
Oo 
. 
o 
. 
o 
. 
o 
o 
. 
° 
. 
e 
. 
cc 
° 
o 
. 
a 
. 
e 
. 
e 
o 
eo 
- 
eo 
. 
a 
. 
cf 
. 
e 
. 
a 
. 
e 
ao 
. 
2 
© 
e 
. 
e 
e 
~ 
. 
+. 
oe 
. 
o 
. 
. 
7 
2 


0299 fH-8T13A- SE ORPORATION 
VO70 VAX/VMS V4.0 | OPRIETARY 


